/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / mail-hist.elc.z / mail-hist.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 6e 75 |piled by| kwzh@nu|
|00000020| 74 72 69 6d 61 74 2e 67 | 6e 75 2e 61 69 2e 6d 69 |trimat.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 32 31 20 31 35 3a 35 | 30 3a 35 33 20 31 39 39 | 21 15:5|0:53 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 6d 61 69 6c 2d 68 69 73 |.0/lisp/|mail-his|
|00000080| 74 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |t.el.;;;| emacs v|
|00000090| 65 72 73 69 6f 6e 20 31 | 39 2e 33 31 2e 39 34 2e |ersion 1|9.31.94.|
|000000a0| 31 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |1..;;; b|ytecomp |
|000000b0| 76 65 72 73 69 6f 6e 20 | 46 53 46 20 32 2e 31 30 |version |FSF 2.10|
|000000c0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000d0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000e0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|000000f0| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000100| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000110| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000120| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000130| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000170| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000180| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 2e |acs-vers|ion "19.|
|00000190| 32 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |29"))). |   (erro|
|000001a0| 72 20 22 60 6d 61 69 6c | 2d 68 69 73 74 2e 65 6c |r "`mail|-hist.el|
|000001b0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001c0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 32 39 20 6f |or Emacs| 19.29 o|
|000001d0| 72 20 6c 61 74 65 72 22 | 29 29 0a 0a 0a 28 72 65 |r later"|))...(re|
|000001e0| 71 75 69 72 65 20 28 71 | 75 6f 74 65 20 72 69 6e |quire (q|uote rin|
|000001f0| 67 29 29 0a 23 40 36 37 | 20 44 65 66 69 6e 65 20 |g)).#@67| Define |
|00000200| 6b 65 79 73 20 66 6f 72 | 20 61 63 63 65 73 73 69 |keys for| accessi|
|00000210| 6e 67 20 6d 61 69 6c 20 | 68 65 61 64 65 72 20 68 |ng mail |header h|
|00000220| 69 73 74 6f 72 79 2e 20 | 20 46 6f 72 20 75 73 65 |istory. | For use|
|00000230| 20 69 6e 20 68 6f 6f 6b | 73 2e 1f 0a 28 64 65 66 | in hook|s...(def|
|00000240| 61 6c 69 61 73 20 27 6d | 61 69 6c 2d 68 69 73 74 |alias 'm|ail-hist|
|00000250| 2d 64 65 66 69 6e 65 2d | 6b 65 79 73 20 23 5b 6e |-define-|keys #[n|
|00000260| 69 6c 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 87 |il "...\|"....\".|
|00000270| 22 20 5b 6c 6f 63 61 6c | 2d 73 65 74 2d 6b 65 79 |" [local|-set-key|
|00000280| 20 22 f0 22 20 6d 61 69 | 6c 2d 68 69 73 74 2d 70 | "." mai|l-hist-p|
|00000290| 72 65 76 69 6f 75 73 2d | 69 6e 70 75 74 20 22 ee |revious-|input ".|
|000002a0| 22 20 6d 61 69 6c 2d 68 | 69 73 74 2d 6e 65 78 74 |" mail-h|ist-next|
|000002b0| 2d 69 6e 70 75 74 5d 20 | 33 20 28 23 24 20 2e 20 |-input] |3 (#$ . |
|000002c0| 35 30 35 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |505)]).(|defalias|
|000002d0| 20 27 6d 61 69 6c 2d 68 | 69 73 74 2d 65 6e 61 62 | 'mail-h|ist-enab|
|000002e0| 6c 65 20 23 5b 6e 69 6c | 20 22 c0 c1 c2 5c 22 88 |le #[nil| "...\".|
|000002f0| c0 c3 c4 5c 22 87 22 20 | 5b 61 64 64 2d 68 6f 6f |...\"." |[add-hoo|
|00000300| 6b 20 6d 61 69 6c 2d 6d | 6f 64 65 2d 68 6f 6f 6b |k mail-m|ode-hook|
|00000310| 20 6d 61 69 6c 2d 68 69 | 73 74 2d 64 65 66 69 6e | mail-hi|st-defin|
|00000320| 65 2d 6b 65 79 73 20 6d | 61 69 6c 2d 73 65 6e 64 |e-keys m|ail-send|
|00000330| 2d 68 6f 6f 6b 20 6d 61 | 69 6c 2d 68 69 73 74 2d |-hook ma|il-hist-|
|00000340| 70 75 74 2d 68 65 61 64 | 65 72 73 2d 69 6e 74 6f |put-head|ers-into|
|00000350| 2d 68 69 73 74 6f 72 79 | 5d 20 33 5d 29 0a 23 40 |-history|] 3]).#@|
|00000360| 31 33 36 20 41 6c 69 73 | 74 20 6f 66 20 66 6f 72 |136 Alis|t of for|
|00000370| 6d 20 28 68 65 61 64 65 | 72 2d 6e 61 6d 65 20 2e |m (heade|r-name .|
|00000380| 20 68 69 73 74 6f 72 79 | 2d 72 69 6e 67 29 2e 0a | history|-ring)..|
|00000390| 55 73 65 64 20 66 6f 72 | 20 6b 6e 6f 77 69 6e 67 |Used for| knowing|
|000003a0| 20 77 68 69 63 68 20 68 | 69 73 74 6f 72 79 20 6c | which h|istory l|
|000003b0| 69 73 74 20 74 6f 20 6c | 6f 6f 6b 20 69 6e 20 77 |ist to l|ook in w|
|000003c0| 68 65 6e 20 74 68 65 20 | 75 73 65 72 20 61 73 6b |hen the |user ask|
|000003d0| 73 20 66 6f 72 0a 70 72 | 65 76 69 6f 75 73 2f 6e |s for.pr|evious/n|
|000003e0| 65 78 74 20 69 6e 70 75 | 74 2e 1f 0a 28 64 65 66 |ext inpu|t...(def|
|000003f0| 76 61 72 20 6d 61 69 6c | 2d 68 69 73 74 2d 68 65 |var mail|-hist-he|
|00000400| 61 64 65 72 2d 72 69 6e | 67 2d 61 6c 69 73 74 20 |ader-rin|g-alist |
|00000410| 6e 69 6c 20 28 23 24 20 | 2e 20 38 36 38 29 29 0a |nil (#$ |. 868)).|
|00000420| 23 40 39 34 20 2a 54 68 | 65 20 6d 61 78 69 6d 75 |#@94 *Th|e maximu|
|00000430| 6d 20 6e 75 6d 62 65 72 | 20 6f 66 20 65 6c 65 6d |m number| of elem|
|00000440| 65 6e 74 73 20 69 6e 20 | 61 20 6d 61 69 6c 20 66 |ents in |a mail f|
|00000450| 69 65 6c 64 27 73 20 68 | 69 73 74 6f 72 79 2e 0a |ield's h|istory..|
|00000460| 4f 6c 64 65 73 74 20 65 | 6c 65 6d 65 6e 74 73 20 |Oldest e|lements |
|00000470| 61 72 65 20 64 75 6d 70 | 65 64 20 66 69 72 73 74 |are dump|ed first|
|00000480| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 61 69 6c 2d |...(defv|ar mail-|
|00000490| 68 69 73 74 2d 68 69 73 | 74 6f 72 79 2d 73 69 7a |hist-his|tory-siz|
|000004a0| 65 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 86 |e (byte-|code "..|
|000004b0| 05 00 c1 87 22 20 5b 6b | 69 6c 6c 2d 72 69 6e 67 |...." [k|ill-ring|
|000004c0| 2d 6d 61 78 20 31 37 32 | 39 5d 20 31 29 20 28 23 |-max 172|9] 1) (#|
|000004d0| 24 20 2e 20 2d 31 30 36 | 31 29 29 0a 23 40 37 30 |$ . -106|1)).#@70|
|000004e0| 20 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 | *Non-ni|l means |
|000004f0| 6b 65 65 70 20 61 20 68 | 69 73 74 6f 72 79 20 66 |keep a h|istory f|
|00000500| 6f 72 20 68 65 61 64 65 | 72 73 20 61 6e 64 20 74 |or heade|rs and t|
|00000510| 65 78 74 20 6f 66 20 6f | 75 74 67 6f 69 6e 67 20 |ext of o|utgoing |
|00000520| 6d 61 69 6c 2e 1f 0a 28 | 64 65 66 76 61 72 20 6d |mail...(|defvar m|
|00000530| 61 69 6c 2d 68 69 73 74 | 2d 6b 65 65 70 2d 68 69 |ail-hist|-keep-hi|
|00000540| 73 74 6f 72 79 20 74 20 | 28 23 24 20 2e 20 2d 31 |story t |(#$ . -1|
|00000550| 32 34 39 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |249)).(b|yte-code|
|00000560| 20 22 c0 c1 21 84 08 00 | c2 11 c1 0b 42 13 c0 c4 | "..!...|....B...|
|00000570| 21 84 14 00 c5 14 c4 0b | 42 13 c5 87 22 20 5b 62 |!.......|B..." [b|
|00000580| 6f 75 6e 64 70 20 6d 61 | 69 6c 2d 68 69 73 74 2d |oundp ma|il-hist-|
|00000590| 61 63 63 65 73 73 2d 63 | 6f 75 6e 74 20 30 20 63 |access-c|ount 0 c|
|000005a0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000005b0| 20 6d 61 69 6c 2d 68 69 | 73 74 2d 6c 61 73 74 2d | mail-hi|st-last-|
|000005c0| 62 6f 75 6e 64 73 20 6e | 69 6c 5d 20 32 29 0a 23 |bounds n|il] 2).#|
|000005d0| 40 36 30 20 52 65 67 75 | 6c 61 72 20 65 78 70 72 |@60 Regu|lar expr|
|000005e0| 65 73 73 69 6f 6e 20 66 | 6f 72 20 6d 61 74 63 68 |ession f|or match|
|000005f0| 69 6e 67 20 68 65 61 64 | 65 72 73 20 69 6e 20 61 |ing head|ers in a|
|00000600| 20 6d 61 69 6c 20 6d 65 | 73 73 61 67 65 2e 1f 0a | mail me|ssage...|
|00000610| 28 64 65 66 76 61 72 20 | 6d 61 69 6c 2d 68 69 73 |(defvar |mail-his|
|00000620| 74 2d 68 65 61 64 65 72 | 2d 72 65 67 65 78 70 20 |t-header|-regexp |
|00000630| 22 5e 5b 5e 3a 5d 2a 3a | 22 20 28 23 24 20 2e 20 |"^[^:]*:|" (#$ . |
|00000640| 31 34 39 32 29 29 0a 23 | 40 31 35 30 20 47 65 74 |1492)).#|@150 Get|
|00000650| 20 6e 61 6d 65 20 6f 66 | 20 6d 61 69 6c 20 68 65 | name of| mail he|
|00000660| 61 64 65 72 20 70 6f 69 | 6e 74 20 69 73 20 63 75 |ader poi|nt is cu|
|00000670| 72 72 65 6e 74 6c 79 20 | 69 6e 2c 20 77 69 74 68 |rrently |in, with|
|00000680| 6f 75 74 20 74 68 65 20 | 63 6f 6c 6f 6e 2e 0a 52 |out the |colon..R|
|00000690| 65 74 75 72 6e 73 20 6e | 69 6c 20 69 66 20 6e 6f |eturns n|il if no|
|000006a0| 74 20 69 6e 20 61 20 68 | 65 61 64 65 72 2c 20 69 |t in a h|eader, i|
|000006b0| 6d 70 6c 79 69 6e 67 20 | 74 68 61 74 20 70 6f 69 |mplying |that poi|
|000006c0| 6e 74 20 69 73 20 69 6e | 20 74 68 65 20 62 6f 64 |nt is in| the bod|
|000006d0| 79 20 6f 66 0a 74 68 65 | 20 6d 65 73 73 61 67 65 |y of.the| message|
|000006e0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |...(defa|lias 'ma|
|000006f0| 69 6c 2d 68 69 73 74 2d | 63 75 72 72 65 6e 74 2d |il-hist-|current-|
|00000700| 68 65 61 64 65 72 2d 6e | 61 6d 65 20 23 5b 6e 69 |header-n|ame #[ni|
|00000710| 6c 20 22 8a c0 c1 c2 0b | 21 c4 51 c5 c6 23 29 3f |l ".....|!.Q..#)?|
|00000720| 85 44 00 8a 8a c7 c1 c2 | 0b 21 c4 51 c5 c6 23 29 |.D......|.!.Q..#)|
|00000730| 1e 08 c0 0e 09 c5 c6 23 | 1e 5c 6e cb cc 0e 08 c6 |.......#|.\n.....|
|00000740| 23 88 60 53 1e 0d 0e 5c | 6e 85 43 00 0e 0d 85 43 |#.`S...\|n.C....C|
|00000750| 00 ce 0e 5c 6e 0e 0d 5c | 22 97 2c 87 22 20 5b 72 |...\n..\|".,." [r|
|00000760| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00000770| 64 20 22 5e 22 20 72 65 | 67 65 78 70 2d 71 75 6f |d "^" re|gexp-quo|
|00000780| 74 65 20 6d 61 69 6c 2d | 68 65 61 64 65 72 2d 73 |te mail-|header-s|
|00000790| 65 70 61 72 61 74 6f 72 | 20 22 24 22 20 6e 69 6c |eparator| "$" nil|
|000007a0| 20 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 | t re-se|arch-for|
|000007b0| 77 61 72 64 20 62 6f 64 | 79 2d 73 74 61 72 74 20 |ward bod|y-start |
|000007c0| 6d 61 69 6c 2d 68 69 73 | 74 2d 68 65 61 64 65 72 |mail-his|t-header|
|000007d0| 2d 72 65 67 65 78 70 20 | 6e 61 6d 65 2d 73 74 61 |-regexp |name-sta|
|000007e0| 72 74 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |rt searc|h-forwar|
|000007f0| 64 20 22 3a 22 20 6e 61 | 6d 65 2d 65 6e 64 20 62 |d ":" na|me-end b|
|00000800| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 2d |uffer-su|bstring-|
|00000810| 6e 6f 2d 70 72 6f 70 65 | 72 74 69 65 73 5d 20 34 |no-prope|rties] 4|
|00000820| 20 28 23 24 20 2e 20 31 | 36 31 33 29 5d 29 0a 28 | (#$ . 1|613)]).(|
|00000830| 70 75 74 20 28 71 75 6f | 74 65 20 6d 61 69 6c 2d |put (quo|te mail-|
|00000840| 68 69 73 74 2d 63 75 72 | 72 65 6e 74 2d 68 65 61 |hist-cur|rent-hea|
|00000850| 64 65 72 2d 6e 61 6d 65 | 29 20 28 71 75 6f 74 65 |der-name|) (quote|
|00000860| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00000870| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00000880| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000890| 6e 64 29 29 0a 23 40 32 | 39 33 20 4d 6f 76 65 20 |nd)).#@2|93 Move |
|000008a0| 66 6f 72 77 61 72 64 20 | 43 4f 55 4e 54 20 68 65 |forward |COUNT he|
|000008b0| 61 64 65 72 73 20 28 62 | 61 63 6b 77 61 72 64 20 |aders (b|ackward |
|000008c0| 69 66 20 43 4f 55 4e 54 | 20 69 73 20 6e 65 67 61 |if COUNT| is nega|
|000008d0| 74 69 76 65 29 2e 0a 49 | 66 20 6c 61 73 74 2f 66 |tive)..I|f last/f|
|000008e0| 69 72 73 74 20 68 65 61 | 64 65 72 20 69 73 20 65 |irst hea|der is e|
|000008f0| 6e 63 6f 75 6e 74 65 72 | 65 64 20 66 69 72 73 74 |ncounter|ed first|
|00000900| 2c 20 73 74 6f 70 20 74 | 68 65 72 65 20 61 6e 64 |, stop t|here and|
|00000910| 20 72 65 74 75 72 6e 73 | 0a 6e 69 6c 2e 20 20 0a | returns|.nil.  .|
|00000920| 0a 50 6c 61 63 65 73 20 | 70 6f 69 6e 74 20 6f 6e |.Places |point on|
|00000930| 20 74 68 65 20 66 69 72 | 73 74 20 6e 6f 6e 2d 77 | the fir|st non-w|
|00000940| 68 69 74 65 73 70 61 63 | 65 20 6f 6e 20 74 68 65 |hitespac|e on the|
|00000950| 20 6c 69 6e 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 | line fo|llowing |
|00000960| 74 68 65 0a 63 6f 6c 6f | 6e 20 61 66 74 65 72 20 |the.colo|n after |
|00000970| 74 68 65 20 68 65 61 64 | 65 72 20 6e 61 6d 65 2c |the head|er name,|
|00000980| 20 6f 72 20 6f 6e 20 74 | 68 65 20 73 65 63 6f 6e | or on t|he secon|
|00000990| 64 20 73 70 61 63 65 20 | 66 6f 6c 6c 6f 77 69 6e |d space |followin|
|000009a0| 67 20 74 68 61 74 20 69 | 66 0a 74 68 65 20 68 65 |g that i|f.the he|
|000009b0| 61 64 65 72 20 69 73 20 | 65 6d 70 74 79 2e 1f 0a |ader is |empty...|
|000009c0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 69 6c 2d |(defalia|s 'mail-|
|000009d0| 68 69 73 74 2d 66 6f 72 | 77 61 72 64 2d 68 65 61 |hist-for|ward-hea|
|000009e0| 64 65 72 20 23 5b 28 63 | 6f 75 6e 74 29 20 22 8a |der #[(c|ount) ".|
|000009f0| c0 c1 c2 0b 21 c4 51 c5 | c6 23 29 89 1e 07 85 72 |....!.Q.|.#)....r|
|00000a00| 00 c6 1e 08 8a 0e 07 62 | 88 c9 79 88 60 53 29 16 |.......b|..y.`S).|
|00000a10| 07 0e 5c 6e c9 56 83 42 | 00 0e 5c 6e c9 56 83 66 |..\n.V.B|..\n.V.f|
|00000a20| 00 c0 0e 0b 0e 07 c6 23 | 16 08 0e 5c 6e 53 89 16 |.......#|...\nS..|
|00000a30| 5c 6e 82 2b 00 0e 5c 6e | 53 89 16 5c 6e c9 57 83 |\n.+..\n|S..\n.W.|
|00000a40| 5e 00 cc 0e 0b c5 c6 23 | 16 08 0e 5c 6e 54 89 16 |^......#|...\nT..|
|00000a50| 5c 6e 82 48 00 c0 0e 0b | 0e 07 c6 23 88 cd ce 21 |\n.H....|...#...!|
|00000a60| 83 6f 00 cf 75 88 0e 08 | 29 29 87 22 20 5b 72 65 |.o..u...|))." [re|
|00000a70| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000a80| 22 5e 22 20 72 65 67 65 | 78 70 2d 71 75 6f 74 65 |"^" rege|xp-quote|
|00000a90| 20 6d 61 69 6c 2d 68 65 | 61 64 65 72 2d 73 65 70 | mail-he|ader-sep|
|00000aa0| 61 72 61 74 6f 72 20 22 | 24 22 20 6e 69 6c 20 74 |arator "|$" nil t|
|00000ab0| 20 62 6f 75 6e 64 61 72 | 79 20 75 6e 73 74 6f 70 | boundar|y unstop|
|00000ac0| 70 65 64 20 30 20 63 6f | 75 6e 74 20 6d 61 69 6c |ped 0 co|unt mail|
|00000ad0| 2d 68 69 73 74 2d 68 65 | 61 64 65 72 2d 72 65 67 |-hist-he|ader-reg|
|00000ae0| 65 78 70 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |exp re-s|earch-ba|
|00000af0| 63 6b 77 61 72 64 20 6c | 6f 6f 6b 69 6e 67 2d 61 |ckward l|ooking-a|
|00000b00| 74 20 22 5c 5c 73 2d 22 | 20 31 5d 20 35 20 28 23 |t "\\s-"| 1] 5 (#|
|00000b10| 24 20 2e 20 32 32 30 33 | 29 5d 29 0a 28 70 75 74 |$ . 2203|)]).(put|
|00000b20| 20 28 71 75 6f 74 65 20 | 6d 61 69 6c 2d 68 69 73 | (quote |mail-his|
|00000b30| 74 2d 66 6f 72 77 61 72 | 64 2d 68 65 61 64 65 72 |t-forwar|d-header|
|00000b40| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00000b50| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00000b60| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00000b70| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 23 40 31 |ine-expa|nd)).#@1|
|00000b80| 37 36 20 4d 6f 76 65 20 | 74 6f 20 74 68 65 20 73 |76 Move |to the s|
|00000b90| 74 61 72 74 20 6f 66 20 | 74 68 65 20 63 75 72 72 |tart of |the curr|
|00000ba0| 65 6e 74 20 68 65 61 64 | 65 72 2e 0a 54 68 65 20 |ent head|er..The |
|00000bb0| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 63 75 72 |start of| the cur|
|00000bc0| 72 65 6e 74 20 68 65 61 | 64 65 72 20 69 73 20 64 |rent hea|der is d|
|00000bd0| 65 66 69 6e 65 64 20 61 | 73 20 6f 6e 65 20 73 70 |efined a|s one sp|
|00000be0| 61 63 65 20 61 66 74 65 | 72 20 74 68 65 0a 63 6f |ace afte|r the.co|
|00000bf0| 6c 6f 6e 2c 20 6f 72 20 | 6a 75 73 74 20 61 66 74 |lon, or |just aft|
|00000c00| 65 72 20 74 68 65 20 63 | 6f 6c 6f 6e 20 69 66 20 |er the c|olon if |
|00000c10| 69 74 20 69 73 20 6e 6f | 74 20 66 6f 6c 6c 6f 77 |it is no|t follow|
|00000c20| 65 64 20 62 79 20 77 68 | 69 74 65 73 70 61 63 65 |ed by wh|itespace|
|00000c30| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |...(defa|lias 'ma|
|00000c40| 69 6c 2d 68 69 73 74 2d | 62 65 67 69 6e 6e 69 6e |il-hist-|beginnin|
|00000c50| 67 2d 6f 66 2d 68 65 61 | 64 65 72 20 23 5b 6e 69 |g-of-hea|der #[ni|
|00000c60| 6c 20 22 c0 19 8a c2 c3 | c4 0d 21 c6 51 c7 c8 23 |l ".....|..!.Q..#|
|00000c70| 29 89 1e 09 85 6c 00 c8 | 1e 5c 6e 8a 0e 09 62 88 |)....l..|.\n...b.|
|00000c80| cb 79 88 60 53 29 16 09 | 09 cb 56 83 40 00 09 cb |.y.`S)..|..V.@...|
|00000c90| 56 83 60 00 c2 0e 5c 66 | 0e 09 c8 23 16 5c 6e 09 |V.`...\f|...#.\n.|
|00000ca0| 53 89 11 82 2b 00 09 53 | 89 11 cb 57 83 58 00 cd |S...+..S|...W.X..|
|00000cb0| 0e 5c 66 c7 c8 23 16 5c | 6e 09 54 89 11 82 44 00 |.\f..#.\|n.T...D.|
|00000cc0| c2 0e 5c 66 0e 09 c8 23 | 88 ce cf 21 83 69 00 d0 |..\f...#|...!.i..|
|00000cd0| 75 88 0e 5c 6e 29 2a 83 | de 00 d0 19 8a c2 c3 c4 |u..\n)*.|........|
|00000ce0| 0d 21 c6 51 c7 c8 23 29 | 89 1e 09 85 dc 00 c8 1e |.!.Q..#)|........|
|00000cf0| 5c 6e 8a 0e 09 62 88 cb | 79 88 60 53 29 16 09 09 |\n...b..|y.`S)...|
|00000d00| cb 56 83 b0 00 09 cb 56 | 83 d0 00 c2 0e 5c 66 0e |.V.....V|.....\f.|
|00000d10| 09 c8 23 16 5c 6e 09 53 | 89 11 82 9b 00 09 53 89 |..#.\n.S|......S.|
|00000d20| 11 cb 57 83 c8 00 cd 0e | 5c 66 c7 c8 23 16 5c 6e |..W.....|\f..#.\n|
|00000d30| 09 54 89 11 82 b4 00 c2 | 0e 5c 66 0e 09 c8 23 88 |.T......|.\f...#.|
|00000d40| ce cf 21 83 d9 00 d0 75 | 88 0e 5c 6e 29 2a 87 d0 |..!....u|..\n)*..|
|00000d50| 19 8a c2 c3 c4 0d 21 c6 | 51 c7 c8 23 29 89 1e 09 |......!.|Q..#)...|
|00000d60| 85 4a 01 c8 1e 5c 6e 8a | 0e 09 62 88 cb 79 88 60 |.J...\n.|..b..y.`|
|00000d70| 53 29 16 09 09 cb 56 83 | 1e 01 09 cb 56 83 3e 01 |S)....V.|....V.>.|
|00000d80| c2 0e 5c 66 0e 09 c8 23 | 16 5c 6e 09 53 89 11 82 |..\f...#|.\n.S...|
|00000d90| 09 01 09 53 89 11 cb 57 | 83 36 01 cd 0e 5c 66 c7 |...S...W|.6...\f.|
|00000da0| c8 23 16 5c 6e 09 54 89 | 11 82 5c 22 01 c2 0e 5c |.#.\n.T.|..\"...\|
|00000db0| 66 0e 09 c8 23 88 ce cf | 21 83 47 01 d0 75 88 0e |f...#...|!.G..u..|
|00000dc0| 5c 6e 29 29 88 29 c0 19 | 8a c2 c3 c4 0d 21 c6 51 |\n)).)..|.....!.Q|
|00000dd0| c7 c8 23 29 89 1e 09 85 | b9 01 c8 1e 5c 6e 8a 0e |..#)....|....\n..|
|00000de0| 09 62 88 cb 79 88 60 53 | 29 16 09 09 cb 56 83 8d |.b..y.`S|)....V..|
|00000df0| 01 09 cb 56 83 ad 01 c2 | 0e 5c 66 0e 09 c8 23 16 |...V....|.\f...#.|
|00000e00| 5c 6e 09 53 89 11 82 78 | 01 09 53 89 11 cb 57 83 |\n.S...x|..S...W.|
|00000e10| a5 01 cd 0e 5c 66 c7 c8 | 23 16 5c 6e 09 54 89 11 |....\f..|#.\n.T..|
|00000e20| 82 91 01 c2 0e 5c 66 0e | 09 c8 23 88 ce cf 21 83 |.....\f.|..#...!.|
|00000e30| b6 01 d0 75 88 0e 5c 6e | 29 2a 87 22 20 5b 2d 31 |...u..\n|)*." [-1|
|00000e40| 20 63 6f 75 6e 74 20 72 | 65 2d 73 65 61 72 63 68 | count r|e-search|
|00000e50| 2d 66 6f 72 77 61 72 64 | 20 22 5e 22 20 72 65 67 |-forward| "^" reg|
|00000e60| 65 78 70 2d 71 75 6f 74 | 65 20 6d 61 69 6c 2d 68 |exp-quot|e mail-h|
|00000e70| 65 61 64 65 72 2d 73 65 | 70 61 72 61 74 6f 72 20 |eader-se|parator |
|00000e80| 22 24 22 20 6e 69 6c 20 | 74 20 62 6f 75 6e 64 61 |"$" nil |t bounda|
|00000e90| 72 79 20 75 6e 73 74 6f | 70 70 65 64 20 30 20 6d |ry unsto|pped 0 m|
|00000ea0| 61 69 6c 2d 68 69 73 74 | 2d 68 65 61 64 65 72 2d |ail-hist|-header-|
|00000eb0| 72 65 67 65 78 70 20 72 | 65 2d 73 65 61 72 63 68 |regexp r|e-search|
|00000ec0| 2d 62 61 63 6b 77 61 72 | 64 20 6c 6f 6f 6b 69 6e |-backwar|d lookin|
|00000ed0| 67 2d 61 74 20 22 5c 5c | 73 2d 22 20 31 5d 20 35 |g-at "\\|s-" 1] 5|
|00000ee0| 20 28 23 24 20 2e 20 32 | 39 34 37 29 5d 29 0a 28 | (#$ . 2|947)]).(|
|00000ef0| 70 75 74 20 28 71 75 6f | 74 65 20 6d 61 69 6c 2d |put (quo|te mail-|
|00000f00| 68 69 73 74 2d 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |hist-beg|inning-o|
|00000f10| 66 2d 68 65 61 64 65 72 | 29 20 28 71 75 6f 74 65 |f-header|) (quote|
|00000f20| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00000f30| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00000f40| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000f50| 6e 64 29 29 0a 23 40 36 | 34 20 47 65 74 20 74 68 |nd)).#@6|4 Get th|
|00000f60| 65 20 63 6f 6e 74 65 6e | 74 73 20 6f 66 20 74 68 |e conten|ts of th|
|00000f70| 65 20 6d 61 69 6c 20 68 | 65 61 64 65 72 20 69 6e |e mail h|eader in|
|00000f80| 20 77 68 69 63 68 20 70 | 6f 69 6e 74 20 69 73 20 | which p|oint is |
|00000f90| 6c 6f 63 61 74 65 64 2e | 1f 0a 28 64 65 66 61 6c |located.|..(defal|
|00000fa0| 69 61 73 20 27 6d 61 69 | 6c 2d 68 69 73 74 2d 63 |ias 'mai|l-hist-c|
|00000fb0| 75 72 72 65 6e 74 2d 68 | 65 61 64 65 72 2d 63 6f |urrent-h|eader-co|
|00000fc0| 6e 74 65 6e 74 73 20 23 | 5b 6e 69 6c 20 22 8a c0 |ntents #|[nil "..|
|00000fd0| 19 8a c2 c3 c4 0d 21 c6 | 51 c7 c8 23 29 89 1e 09 |......!.|Q..#)...|
|00000fe0| 85 6d 00 c8 1e 5c 6e 8a | 0e 09 62 88 cb 79 88 60 |.m...\n.|..b..y.`|
|00000ff0| 53 29 16 09 09 cb 56 83 | 41 00 09 cb 56 83 61 00 |S)....V.|A...V.a.|
|00001000| c2 0e 5c 66 0e 09 c8 23 | 16 5c 6e 09 53 89 11 82 |..\f...#|.\n.S...|
|00001010| 2c 00 09 53 89 11 cb 57 | 83 59 00 cd 0e 5c 66 c7 |,..S...W|.Y...\f.|
|00001020| c8 23 16 5c 6e 09 54 89 | 11 82 45 00 c2 0e 5c 66 |.#.\n.T.|..E...\f|
|00001030| 0e 09 c8 23 88 ce cf 21 | 83 6a 00 d0 75 88 0e 5c |...#...!|.j..u..\|
|00001040| 6e 29 2a 83 e1 00 d0 19 | 8a c2 c3 c4 0d 21 c6 51 |n)*.....|.....!.Q|
|00001050| c7 c8 23 29 89 1e 09 85 | dd 00 c8 1e 5c 6e 8a 0e |..#)....|....\n..|
|00001060| 09 62 88 cb 79 88 60 53 | 29 16 09 09 cb 56 83 b1 |.b..y.`S|)....V..|
|00001070| 00 09 cb 56 83 d1 00 c2 | 0e 5c 66 0e 09 c8 23 16 |...V....|.\f...#.|
|00001080| 5c 6e 09 53 89 11 82 9c | 00 09 53 89 11 cb 57 83 |\n.S....|..S...W.|
|00001090| c9 00 cd 0e 5c 66 c7 c8 | 23 16 5c 6e 09 54 89 11 |....\f..|#.\n.T..|
|000010a0| 82 b5 00 c2 0e 5c 66 0e | 09 c8 23 88 ce cf 21 83 |.....\f.|..#...!.|
|000010b0| da 00 d0 75 88 0e 5c 6e | 29 2a 82 bd 01 d0 19 8a |...u..\n|)*......|
|000010c0| c2 c3 c4 0d 21 c6 51 c7 | c8 23 29 89 1e 09 85 4d |....!.Q.|.#)....M|
|000010d0| 01 c8 1e 5c 6e 8a 0e 09 | 62 88 cb 79 88 60 53 29 |...\n...|b..y.`S)|
|000010e0| 16 09 09 cb 56 83 21 01 | 09 cb 56 83 41 01 c2 0e |....V.!.|..V.A...|
|000010f0| 5c 66 0e 09 c8 23 16 5c | 6e 09 53 89 11 82 5c 66 |\f...#.\|n.S...\f|
|00001100| 01 09 53 89 11 cb 57 83 | 39 01 cd 0e 5c 66 c7 c8 |..S...W.|9...\f..|
|00001110| 23 16 5c 6e 09 54 89 11 | 82 25 01 c2 0e 5c 66 0e |#.\n.T..|.%...\f.|
|00001120| 09 c8 23 88 ce cf 21 83 | 4a 01 d0 75 88 0e 5c 6e |..#...!.|J..u..\n|
|00001130| 29 29 88 29 c0 19 8a c2 | c3 c4 0d 21 c6 51 c7 c8 |)).)....|...!.Q..|
|00001140| 23 29 89 1e 09 85 bc 01 | c8 1e 5c 6e 8a 0e 09 62 |#)......|..\n...b|
|00001150| 88 cb 79 88 60 53 29 16 | 09 09 cb 56 83 90 01 09 |..y.`S).|...V....|
|00001160| cb 56 83 b0 01 c2 0e 5c | 66 0e 09 c8 23 16 5c 6e |.V.....\|f...#.\n|
|00001170| 09 53 89 11 82 7b 01 09 | 53 89 11 cb 57 83 a8 01 |.S...{..|S...W...|
|00001180| cd 0e 5c 66 c7 c8 23 16 | 5c 6e 09 54 89 11 82 94 |..\f..#.|\n.T....|
|00001190| 01 c2 0e 5c 66 0e 09 c8 | 23 88 ce cf 21 83 b9 01 |...\f...|#...!...|
|000011a0| d0 75 88 0e 5c 6e 29 2a | 88 60 1e 11 d2 d0 21 84 |.u..\n)*|.`....!.|
|000011b0| d0 01 c2 c3 c4 0d 21 c6 | 51 21 88 cb 79 88 0e 11 |......!.|Q!..y...|
|000011c0| 60 53 7b 2a 87 22 20 5b | 2d 31 20 63 6f 75 6e 74 |`S{*." [|-1 count|
|000011d0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|000011e0| 72 64 20 22 5e 22 20 72 | 65 67 65 78 70 2d 71 75 |rd "^" r|egexp-qu|
|000011f0| 6f 74 65 20 6d 61 69 6c | 2d 68 65 61 64 65 72 2d |ote mail|-header-|
|00001200| 73 65 70 61 72 61 74 6f | 72 20 22 24 22 20 6e 69 |separato|r "$" ni|
|00001210| 6c 20 74 20 62 6f 75 6e | 64 61 72 79 20 75 6e 73 |l t boun|dary uns|
|00001220| 74 6f 70 70 65 64 20 30 | 20 6d 61 69 6c 2d 68 69 |topped 0| mail-hi|
|00001230| 73 74 2d 68 65 61 64 65 | 72 2d 72 65 67 65 78 70 |st-heade|r-regexp|
|00001240| 20 72 65 2d 73 65 61 72 | 63 68 2d 62 61 63 6b 77 | re-sear|ch-backw|
|00001250| 61 72 64 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |ard look|ing-at "|
|00001260| 5c 5c 73 2d 22 20 31 20 | 73 74 61 72 74 20 6d 61 |\\s-" 1 |start ma|
|00001270| 69 6c 2d 68 69 73 74 2d | 66 6f 72 77 61 72 64 2d |il-hist-|forward-|
|00001280| 68 65 61 64 65 72 5d 20 | 35 20 28 23 24 20 2e 20 |header] |5 (#$ . |
|00001290| 33 39 33 30 29 5d 29 0a | 28 70 75 74 20 28 71 75 |3930)]).|(put (qu|
|000012a0| 6f 74 65 20 6d 61 69 6c | 2d 68 69 73 74 2d 63 75 |ote mail|-hist-cu|
|000012b0| 72 72 65 6e 74 2d 68 65 | 61 64 65 72 2d 63 6f 6e |rrent-he|ader-con|
|000012c0| 74 65 6e 74 73 29 20 28 | 71 75 6f 74 65 20 62 79 |tents) (|quote by|
|000012d0| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 29 20 28 71 |te-optim|izer) (q|
|000012e0| 75 6f 74 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |uote byt|e-compil|
|000012f0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00001300| 29 0a 23 40 38 32 20 47 | 65 74 20 48 45 41 44 45 |).#@82 G|et HEADE|
|00001310| 52 27 73 20 68 69 73 74 | 6f 72 79 20 72 69 6e 67 |R's hist|ory ring|
|00001320| 2c 20 6f 72 20 6e 69 6c | 20 69 66 20 6e 6f 6e 65 |, or nil| if none|
|00001330| 2e 0a 48 45 41 44 45 52 | 20 69 73 20 61 20 73 74 |..HEADER| is a st|
|00001340| 72 69 6e 67 20 77 69 74 | 68 6f 75 74 20 74 68 65 |ring wit|hout the|
|00001350| 20 63 6f 6c 6f 6e 2e 1f | 0a 28 64 65 66 61 6c 69 | colon..|.(defali|
|00001360| 61 73 20 27 6d 61 69 6c | 2d 68 69 73 74 2d 67 65 |as 'mail|-hist-ge|
|00001370| 74 2d 68 65 61 64 65 72 | 2d 72 69 6e 67 20 23 5b |t-header|-ring #[|
|00001380| 28 68 65 61 64 65 72 29 | 20 22 08 97 10 c1 08 5c |(header)| ".....\|
|00001390| 6e 5c 22 41 87 22 20 5b | 68 65 61 64 65 72 20 61 |n\"A." [|header a|
|000013a0| 73 73 6f 63 20 6d 61 69 | 6c 2d 68 69 73 74 2d 68 |ssoc mai|l-hist-h|
|000013b0| 65 61 64 65 72 2d 72 69 | 6e 67 2d 61 6c 69 73 74 |eader-ri|ng-alist|
|000013c0| 5d 20 33 20 28 23 24 20 | 2e 20 34 38 37 31 29 5d |] 3 (#$ |. 4871)]|
|000013d0| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 6d 61 |).(put (|quote ma|
|000013e0| 69 6c 2d 68 69 73 74 2d | 67 65 74 2d 68 65 61 64 |il-hist-|get-head|
|000013f0| 65 72 2d 72 69 6e 67 29 | 20 28 71 75 6f 74 65 20 |er-ring)| (quote |
|00001400| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 29 20 |byte-opt|imizer) |
|00001410| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 63 6f 6d 70 |(quote b|yte-comp|
|00001420| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00001430| 64 29 29 0a 23 40 31 32 | 35 20 2a 44 6f 6e 27 74 |d)).#@12|5 *Don't|
|00001440| 20 73 74 6f 72 65 20 61 | 6e 79 20 68 65 61 64 65 | store a|ny heade|
|00001450| 72 20 6f 72 20 62 6f 64 | 79 20 77 69 74 68 20 6d |r or bod|y with m|
|00001460| 6f 72 65 20 74 68 61 6e | 20 74 68 69 73 20 6d 61 |ore than| this ma|
|00001470| 6e 79 20 63 68 61 72 61 | 63 74 65 72 73 2e 0a 49 |ny chara|cters..I|
|00001480| 66 20 74 68 65 20 76 61 | 6c 75 65 20 69 73 20 6e |f the va|lue is n|
|00001490| 69 6c 2c 20 74 68 61 74 | 20 6d 65 61 6e 73 20 6e |il, that| means n|
|000014a0| 6f 20 6c 69 6d 69 74 20 | 6f 6e 20 74 65 78 74 20 |o limit |on text |
|000014b0| 73 69 7a 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 6d |size...(|defvar m|
|000014c0| 61 69 6c 2d 68 69 73 74 | 2d 74 65 78 74 2d 73 69 |ail-hist|-text-si|
|000014d0| 7a 65 2d 6c 69 6d 69 74 | 20 6e 69 6c 20 28 23 24 |ze-limit| nil (#$|
|000014e0| 20 2e 20 2d 35 31 37 38 | 29 29 0a 23 40 31 31 39 | . -5178|)).#@119|
|000014f0| 20 52 65 74 75 72 6e 20 | 74 20 69 66 20 54 45 58 | Return |t if TEX|
|00001500| 54 20 64 6f 65 73 20 6e | 6f 74 20 65 78 63 65 65 |T does n|ot excee|
|00001510| 64 20 6d 61 69 6c 2d 68 | 69 73 74 27 73 20 73 69 |d mail-h|ist's si|
|00001520| 7a 65 20 6c 69 6d 69 74 | 2e 0a 54 68 65 20 76 61 |ze limit|..The va|
|00001530| 72 69 61 62 6c 65 20 60 | 6d 61 69 6c 2d 68 69 73 |riable `|mail-his|
|00001540| 74 2d 74 65 78 74 2d 73 | 69 7a 65 2d 6c 69 6d 69 |t-text-s|ize-limi|
|00001550| 74 27 20 64 65 66 69 6e | 65 73 20 74 68 69 73 20 |t' defin|es this |
|00001560| 6c 69 6d 69 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |limit...|(defalia|
|00001570| 73 20 27 6d 61 69 6c 2d | 68 69 73 74 2d 74 65 78 |s 'mail-|hist-tex|
|00001580| 74 2d 74 6f 6f 2d 6c 6f | 6e 67 2d 70 20 23 5b 28 |t-too-lo|ng-p #[(|
|00001590| 74 65 78 74 29 20 22 08 | 85 08 00 09 47 08 56 87 |text) ".|....G.V.|
|000015a0| 22 20 5b 6d 61 69 6c 2d | 68 69 73 74 2d 74 65 78 |" [mail-|hist-tex|
|000015b0| 74 2d 73 69 7a 65 2d 6c | 69 6d 69 74 20 74 65 78 |t-size-l|imit tex|
|000015c0| 74 5d 20 32 20 28 23 24 | 20 2e 20 35 33 36 31 29 |t] 2 (#$| . 5361)|
|000015d0| 5d 29 0a 23 40 31 36 37 | 20 41 64 64 20 74 68 65 |]).#@167| Add the|
|000015e0| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 48 45 41 | content|s of HEA|
|000015f0| 44 45 52 20 74 6f 20 74 | 68 65 20 68 65 61 64 65 |DER to t|he heade|
|00001600| 72 20 68 69 73 74 6f 72 | 79 20 72 69 6e 67 2e 0a |r histor|y ring..|
|00001610| 4f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |Optional| argumen|
|00001620| 74 20 43 4f 4e 54 45 4e | 54 53 20 69 73 20 61 20 |t CONTEN|TS is a |
|00001630| 73 74 72 69 6e 67 20 77 | 68 69 63 68 20 77 69 6c |string w|hich wil|
|00001640| 6c 20 62 65 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |l be the| content|
|00001650| 73 0a 28 69 6e 73 74 65 | 61 64 20 6f 66 20 77 68 |s.(inste|ad of wh|
|00001660| 61 74 65 76 65 72 27 73 | 20 66 6f 75 6e 64 20 69 |atever's| found i|
|00001670| 6e 20 74 68 65 20 68 65 | 61 64 65 72 29 2e 1f 0a |n the he|ader)...|
|00001680| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 69 6c 2d |(defalia|s 'mail-|
|00001690| 68 69 73 74 2d 61 64 64 | 2d 68 65 61 64 65 72 2d |hist-add|-header-|
|000016a0| 63 6f 6e 74 65 6e 74 73 | 2d 74 6f 2d 72 69 6e 67 |contents|-to-ring|
|000016b0| 20 23 5b 28 68 65 61 64 | 65 72 20 26 6f 70 74 69 | #[(head|er &opti|
|000016c0| 6f 6e 61 6c 20 63 6f 6e | 74 65 6e 74 73 29 20 22 |onal con|tents) "|
|000016d0| 08 97 10 09 86 e5 01 8a | c2 1b 8a c4 c5 c6 0e 07 |........|........|
|000016e0| 21 c8 51 c9 ca 23 29 89 | 1e 0b 85 75 00 ca 1e 5c |!.Q..#).|...u...\|
|000016f0| 66 8a 0e 0b 62 88 cd 79 | 88 60 53 29 16 0b 0b cd |f...b..y|.`S)....|
|00001700| 56 83 49 00 0b cd 56 83 | 69 00 c4 0e 0e 0e 0b ca |V.I...V.|i.......|
|00001710| 23 16 5c 66 0b 53 89 13 | 82 34 00 0b 53 89 13 cd |#.\f.S..|.4..S...|
|00001720| 57 83 61 00 cf 0e 0e c9 | ca 23 16 5c 66 0b 54 89 |W.a.....|.#.\f.T.|
|00001730| 13 82 4d 00 c4 0e 0e 0e | 0b ca 23 88 d0 d1 21 83 |..M.....|..#...!.|
|00001740| 72 00 d2 75 88 0e 5c 66 | 29 2a 83 ea 00 d2 1b 8a |r..u..\f|)*......|
|00001750| c4 c5 c6 0e 07 21 c8 51 | c9 ca 23 29 89 1e 0b 85 |.....!.Q|..#)....|
|00001760| e6 00 ca 1e 5c 66 8a 0e | 0b 62 88 cd 79 88 60 53 |....\f..|.b..y.`S|
|00001770| 29 16 0b 0b cd 56 83 ba | 00 0b cd 56 83 da 00 c4 |)....V..|...V....|
|00001780| 0e 0e 0e 0b ca 23 16 5c | 66 0b 53 89 13 82 a5 00 |.....#.\|f.S.....|
|00001790| 0b 53 89 13 cd 57 83 d2 | 00 cf 0e 0e c9 ca 23 16 |.S...W..|......#.|
|000017a0| 5c 66 0b 54 89 13 82 be | 00 c4 0e 0e 0e 0b ca 23 |\f.T....|.......#|
|000017b0| 88 d0 d1 21 83 e3 00 d2 | 75 88 0e 5c 66 29 2a 82 |...!....|u..\f)*.|
|000017c0| c8 01 d2 1b 8a c4 c5 c6 | 0e 07 21 c8 51 c9 ca 23 |........|..!.Q..#|
|000017d0| 29 89 1e 0b 85 57 01 ca | 1e 5c 66 8a 0e 0b 62 88 |)....W..|.\f...b.|
|000017e0| cd 79 88 60 53 29 16 0b | 0b cd 56 83 2b 01 0b cd |.y.`S)..|..V.+...|
|000017f0| 56 83 4b 01 c4 0e 0e 0e | 0b ca 23 16 5c 66 0b 53 |V.K.....|..#.\f.S|
|00001800| 89 13 82 16 01 0b 53 89 | 13 cd 57 83 43 01 cf 0e |......S.|..W.C...|
|00001810| 0e c9 ca 23 16 5c 66 0b | 54 89 13 82 2f 01 c4 0e |...#.\f.|T.../...|
|00001820| 0e 0e 0b ca 23 88 d0 d1 | 21 83 54 01 d2 75 88 0e |....#...|!.T..u..|
|00001830| 5c 66 29 29 88 29 c2 1b | 8a c4 c5 c6 0e 07 21 c8 |\f)).)..|......!.|
|00001840| 51 c9 ca 23 29 89 1e 0b | 85 c7 01 ca 1e 5c 66 8a |Q..#)...|.....\f.|
|00001850| 0e 0b 62 88 cd 79 88 60 | 53 29 16 0b 0b cd 56 83 |..b..y.`|S)....V.|
|00001860| 9b 01 0b cd 56 83 bb 01 | c4 0e 0e 0e 0b ca 23 16 |....V...|......#.|
|00001870| 5c 66 0b 53 89 13 82 86 | 01 0b 53 89 13 cd 57 83 |\f.S....|..S...W.|
|00001880| b3 01 cf 0e 0e c9 ca 23 | 16 5c 66 0b 54 89 13 82 |.......#|.\f.T...|
|00001890| 9f 01 c4 0e 0e 0e 0b ca | 23 88 d0 d1 21 83 c4 01 |........|#...!...|
|000018a0| d2 75 88 0e 5c 66 29 2a | 88 60 1e 13 d4 d2 21 84 |.u..\f)*|.`....!.|
|000018b0| dc 01 c4 c5 c6 0e 07 21 | c8 51 21 88 cd 79 88 0e |.......!|.Q!..y..|
|000018c0| 13 60 53 7b 2a d5 08 0e | 16 5c 22 41 1e 17 1e 18 |.`S{*...|.\"A....|
|000018d0| d9 0e 18 21 83 f9 01 da | 16 18 0e 17 84 0d 02 db |...!....|........|
|000018e0| 0e 1c 21 16 17 08 0e 17 | 42 0e 16 42 16 16 dd 0e |..!.....|B..B....|
|000018f0| 17 0e 18 5c 22 2a 87 22 | 20 5b 68 65 61 64 65 72 |...\"*."| [header|
|00001900| 20 63 6f 6e 74 65 6e 74 | 73 20 2d 31 20 63 6f 75 | content|s -1 cou|
|00001910| 6e 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |nt re-se|arch-for|
|00001920| 77 61 72 64 20 22 5e 22 | 20 72 65 67 65 78 70 2d |ward "^"| regexp-|
|00001930| 71 75 6f 74 65 20 6d 61 | 69 6c 2d 68 65 61 64 65 |quote ma|il-heade|
|00001940| 72 2d 73 65 70 61 72 61 | 74 6f 72 20 22 24 22 20 |r-separa|tor "$" |
|00001950| 6e 69 6c 20 74 20 62 6f | 75 6e 64 61 72 79 20 75 |nil t bo|undary u|
|00001960| 6e 73 74 6f 70 70 65 64 | 20 30 20 6d 61 69 6c 2d |nstopped| 0 mail-|
|00001970| 68 69 73 74 2d 68 65 61 | 64 65 72 2d 72 65 67 65 |hist-hea|der-rege|
|00001980| 78 70 20 72 65 2d 73 65 | 61 72 63 68 2d 62 61 63 |xp re-se|arch-bac|
|00001990| 6b 77 61 72 64 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |kward lo|oking-at|
|000019a0| 20 22 5c 5c 73 2d 22 20 | 31 20 73 74 61 72 74 20 | "\\s-" |1 start |
|000019b0| 6d 61 69 6c 2d 68 69 73 | 74 2d 66 6f 72 77 61 72 |mail-his|t-forwar|
|000019c0| 64 2d 68 65 61 64 65 72 | 20 61 73 73 6f 63 20 6d |d-header| assoc m|
|000019d0| 61 69 6c 2d 68 69 73 74 | 2d 68 65 61 64 65 72 2d |ail-hist|-header-|
|000019e0| 72 69 6e 67 2d 61 6c 69 | 73 74 20 72 69 6e 67 20 |ring-ali|st ring |
|000019f0| 63 74 6e 74 73 20 6d 61 | 69 6c 2d 68 69 73 74 2d |ctnts ma|il-hist-|
|00001a00| 74 65 78 74 2d 74 6f 6f | 2d 6c 6f 6e 67 2d 70 20 |text-too|-long-p |
|00001a10| 22 22 20 6d 61 6b 65 2d | 72 69 6e 67 20 6d 61 69 |"" make-|ring mai|
|00001a20| 6c 2d 68 69 73 74 2d 68 | 69 73 74 6f 72 79 2d 73 |l-hist-h|istory-s|
|00001a30| 69 7a 65 20 72 69 6e 67 | 2d 69 6e 73 65 72 74 5d |ize ring|-insert]|
|00001a40| 20 35 20 28 23 24 20 2e | 20 35 35 39 33 29 5d 29 | 5 (#$ .| 5593)])|
|00001a50| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 6d 61 69 |.(put (q|uote mai|
|00001a60| 6c 2d 68 69 73 74 2d 61 | 64 64 2d 68 65 61 64 65 |l-hist-a|dd-heade|
|00001a70| 72 2d 63 6f 6e 74 65 6e | 74 73 2d 74 6f 2d 72 69 |r-conten|ts-to-ri|
|00001a80| 6e 67 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |ng) (quo|te byte-|
|00001a90| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00001aa0| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00001ab0| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 23 |nline-ex|pand)).#|
|00001ac0| 40 32 31 33 20 50 75 74 | 20 68 65 61 64 65 72 73 |@213 Put| headers|
|00001ad0| 20 61 6e 64 20 63 6f 6e | 74 65 6e 74 73 20 6f 66 | and con|tents of|
|00001ae0| 20 74 68 69 73 20 6d 65 | 73 73 61 67 65 20 69 6e | this me|ssage in|
|00001af0| 74 6f 20 6d 61 69 6c 20 | 68 65 61 64 65 72 20 68 |to mail |header h|
|00001b00| 69 73 74 6f 72 79 2e 20 | 0a 45 61 63 68 20 68 65 |istory. |.Each he|
|00001b10| 61 64 65 72 20 68 61 73 | 20 69 74 73 20 6f 77 6e |ader has| its own|
|00001b20| 20 69 6e 64 65 70 65 6e | 64 65 6e 74 20 68 69 73 | indepen|dent his|
|00001b30| 74 6f 72 79 2c 20 61 73 | 20 64 6f 65 73 20 74 68 |tory, as| does th|
|00001b40| 65 20 62 6f 64 79 20 6f | 66 20 74 68 65 0a 6d 65 |e body o|f the.me|
|00001b50| 73 73 61 67 65 2e 0a 0a | 54 68 69 73 20 66 75 6e |ssage...|This fun|
|00001b60| 63 74 69 6f 6e 20 6e 6f | 72 6d 61 6c 6c 79 20 77 |ction no|rmally w|
|00001b70| 6f 75 6c 64 20 62 65 20 | 63 61 6c 6c 65 64 20 77 |ould be |called w|
|00001b80| 68 65 6e 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |hen the |message |
|00001b90| 69 73 20 73 65 6e 74 2e | 1f 0a 28 64 65 66 61 6c |is sent.|..(defal|
|00001ba0| 69 61 73 20 27 6d 61 69 | 6c 2d 68 69 73 74 2d 70 |ias 'mai|l-hist-p|
|00001bb0| 75 74 2d 68 65 61 64 65 | 72 73 2d 69 6e 74 6f 2d |ut-heade|rs-into-|
|00001bc0| 68 69 73 74 6f 72 79 20 | 23 5b 6e 69 6c 20 22 08 |history |#[nil ".|
|00001bd0| 85 19 05 8a 65 62 88 c1 | 1a 8a c3 c4 c5 0e 06 21 |....eb..|.......!|
|00001be0| c7 51 c8 c9 23 29 89 1e | 5c 6e 85 75 00 c9 1e 0b |.Q..#)..|\n.u....|
|00001bf0| 8a 0e 5c 6e 62 88 cc 79 | 88 60 53 29 16 5c 6e 5c |..\nb..y|.`S).\n\|
|00001c00| 6e cc 56 83 49 00 5c 6e | cc 56 83 69 00 c3 0e 0d |n.V.I.\n|.V.i....|
|00001c10| 0e 5c 6e c9 23 16 0b 5c | 6e 53 89 12 82 34 00 5c |.\n.#..\|nS...4.\|
|00001c20| 6e 53 89 12 cc 57 83 61 | 00 ce 0e 0d c8 c9 23 16 |nS...W.a|......#.|
|00001c30| 0b 5c 6e 54 89 12 82 4d | 00 c3 0e 0d 0e 5c 6e c9 |.\nT...M|.....\n.|
|00001c40| 23 88 cf d0 21 83 72 00 | c1 75 88 0e 0b 29 2a 83 |#...!.r.|.u...)*.|
|00001c50| e1 02 8a ce c4 c5 0e 06 | 21 c7 51 c8 c9 23 29 3f |........|!.Q..#)?|
|00001c60| 85 bf 00 8a 8a c3 c4 c5 | 0e 06 21 c7 51 c8 c9 23 |........|..!.Q..#|
|00001c70| 29 1e 11 ce 0e 0d c8 c9 | 23 1e 12 d3 d4 0e 11 c9 |).......|#.......|
|00001c80| 23 88 60 53 1e 15 0e 12 | 85 be 00 0e 15 85 be 00 |#.`S....|........|
|00001c90| d6 0e 12 0e 15 5c 22 97 | 2c c8 1e 17 89 1e 18 97 |.....\".|,.......|
|00001ca0| 16 18 0e 17 86 ab 02 8a | d9 1a 8a c3 c4 c5 0e 06 |........|........|
|00001cb0| 21 c7 51 c8 c9 23 29 89 | 1e 5c 6e 85 3b 01 c9 1e |!.Q..#).|.\n.;...|
|00001cc0| 0b 8a 0e 5c 6e 62 88 cc | 79 88 60 53 29 16 5c 6e |...\nb..|y.`S).\n|
|00001cd0| 5c 6e cc 56 83 0f 01 5c | 6e cc 56 83 2f 01 c3 0e |\n.V...\|n.V./...|
|00001ce0| 0d 0e 5c 6e c9 23 16 0b | 5c 6e 53 89 12 82 fa 00 |..\n.#..|\nS.....|
|00001cf0| 5c 6e 53 89 12 cc 57 83 | 27 01 ce 0e 0d c8 c9 23 |\nS...W.|'......#|
|00001d00| 16 0b 5c 6e 54 89 12 82 | 13 01 c3 0e 0d 0e 5c 6e |..\nT...|......\n|
|00001d10| c9 23 88 cf d0 21 83 38 | 01 c1 75 88 0e 0b 29 2a |.#...!.8|..u...)*|
|00001d20| 83 b0 01 c1 1a 8a c3 c4 | c5 0e 06 21 c7 51 c8 c9 |........|...!.Q..|
|00001d30| 23 29 89 1e 5c 6e 85 ac | 01 c9 1e 0b 8a 0e 5c 6e |#)..\n..|......\n|
|00001d40| 62 88 cc 79 88 60 53 29 | 16 5c 6e 5c 6e cc 56 83 |b..y.`S)|.\n\n.V.|
|00001d50| 80 01 5c 6e cc 56 83 a0 | 01 c3 0e 0d 0e 5c 6e c9 |..\n.V..|.....\n.|
|00001d60| 23 16 0b 5c 6e 53 89 12 | 82 6b 01 5c 6e 53 89 12 |#..\nS..|.k.\nS..|
|00001d70| cc 57 83 98 01 ce 0e 0d | c8 c9 23 16 0b 5c 6e 54 |.W......|..#..\nT|
|00001d80| 89 12 82 84 01 c3 0e 0d | 0e 5c 6e c9 23 88 cf d0 |........|.\n.#...|
|00001d90| 21 83 a9 01 c1 75 88 0e | 0b 29 2a 82 8e 02 c1 1a |!....u..|.)*.....|
|00001da0| 8a c3 c4 c5 0e 06 21 c7 | 51 c8 c9 23 29 89 1e 5c |......!.|Q..#)..\|
|00001db0| 6e 85 1d 02 c9 1e 0b 8a | 0e 5c 6e 62 88 cc 79 88 |n.......|.\nb..y.|
|00001dc0| 60 53 29 16 5c 6e 5c 6e | cc 56 83 f1 01 5c 6e cc |`S).\n\n|.V...\n.|
|00001dd0| 56 83 11 02 c3 0e 0d 0e | 5c 6e c9 23 16 0b 5c 6e |V.......|\n.#..\n|
|00001de0| 53 89 12 82 dc 01 5c 6e | 53 89 12 cc 57 83 09 02 |S.....\n|S...W...|
|00001df0| ce 0e 0d c8 c9 23 16 0b | 5c 6e 54 89 12 82 f5 01 |.....#..|\nT.....|
|00001e00| c3 0e 0d 0e 5c 6e c9 23 | 88 cf d0 21 83 1a 02 c1 |....\n.#|...!....|
|00001e10| 75 88 0e 0b 29 29 88 29 | d9 1a 8a c3 c4 c5 0e 06 |u...)).)|........|
|00001e20| 21 c7 51 c8 c9 23 29 89 | 1e 5c 6e 85 8d 02 c9 1e |!.Q..#).|.\n.....|
|00001e30| 0b 8a 0e 5c 6e 62 88 cc | 79 88 60 53 29 16 5c 6e |...\nb..|y.`S).\n|
|00001e40| 5c 6e cc 56 83 61 02 5c | 6e cc 56 83 81 02 c3 0e |\n.V.a.\|n.V.....|
|00001e50| 0d 0e 5c 6e c9 23 16 0b | 5c 6e 53 89 12 82 4c 02 |..\n.#..|\nS...L.|
|00001e60| 5c 6e 53 89 12 cc 57 83 | 79 02 ce 0e 0d c8 c9 23 |\nS...W.|y......#|
|00001e70| 16 0b 5c 6e 54 89 12 82 | 65 02 c3 0e 0d 0e 5c 6e |..\nT...|e.....\n|
|00001e80| c9 23 88 cf d0 21 83 8a | 02 c1 75 88 0e 0b 29 2a |.#...!..|..u...)*|
|00001e90| 88 60 1e 1a db c1 21 84 | a2 02 c3 c4 c5 0e 06 21 |.`....!.|.......!|
|00001ea0| c7 51 21 88 cc 79 88 0e | 1a 60 53 7b 2a dc 0e 18 |.Q!..y..|.`S{*...|
|00001eb0| 0e 1d 5c 22 41 1e 1e 1e | 1f e0 0e 1f 21 83 c0 02 |..\"A...|....!...|
|00001ec0| e1 16 1f 0e 1e 84 d5 02 | e2 0e 23 21 16 1e 0e 18 |........|..#!....|
|00001ed0| 0e 1e 42 0e 1d 42 16 1d | e4 0e 1e 0e 1f 5c 22 2a |..B..B..|.....\"*|
|00001ee0| 88 2a 82 08 00 8a 65 62 | 88 c3 c4 c5 0e 06 21 c7 |.*....eb|......!.|
|00001ef0| 51 c8 5c 22 88 c1 79 88 | 60 64 7b 29 1e 25 e6 0e |Q.\"..y.|`d{).%..|
|00001f00| 25 1e 17 89 1e 18 97 16 | 18 0e 17 86 e7 04 8a d9 |%.......|........|
|00001f10| 1a 8a c3 c4 c5 0e 06 21 | c7 51 c8 c9 23 29 89 1e |.......!|.Q..#)..|
|00001f20| 5c 6e 85 77 03 c9 1e 0b | 8a 0e 5c 6e 62 88 cc 79 |\n.w....|..\nb..y|
|00001f30| 88 60 53 29 16 5c 6e 5c | 6e cc 56 83 4b 03 5c 6e |.`S).\n\|n.V.K.\n|
|00001f40| cc 56 83 6b 03 c3 0e 0d | 0e 5c 6e c9 23 16 0b 5c |.V.k....|.\n.#..\|
|00001f50| 6e 53 89 12 82 36 03 5c | 6e 53 89 12 cc 57 83 63 |nS...6.\|nS...W.c|
|00001f60| 03 ce 0e 0d c8 c9 23 16 | 0b 5c 6e 54 89 12 82 4f |......#.|.\nT...O|
|00001f70| 03 c3 0e 0d 0e 5c 6e c9 | 23 88 cf d0 21 83 74 03 |.....\n.|#...!.t.|
|00001f80| c1 75 88 0e 0b 29 2a 83 | ec 03 c1 1a 8a c3 c4 c5 |.u...)*.|........|
|00001f90| 0e 06 21 c7 51 c8 c9 23 | 29 89 1e 5c 6e 85 e8 03 |..!.Q..#|)..\n...|
|00001fa0| c9 1e 0b 8a 0e 5c 6e 62 | 88 cc 79 88 60 53 29 16 |.....\nb|..y.`S).|
|00001fb0| 5c 6e 5c 6e cc 56 83 bc | 03 5c 6e cc 56 83 dc 03 |\n\n.V..|.\n.V...|
|00001fc0| c3 0e 0d 0e 5c 6e c9 23 | 16 0b 5c 6e 53 89 12 82 |....\n.#|..\nS...|
|00001fd0| a7 03 5c 6e 53 89 12 cc | 57 83 d4 03 ce 0e 0d c8 |..\nS...|W.......|
|00001fe0| c9 23 16 0b 5c 6e 54 89 | 12 82 c0 03 c3 0e 0d 0e |.#..\nT.|........|
|00001ff0| 5c 6e c9 23 88 cf d0 21 | 83 e5 03 c1 75 88 0e 0b |\n.#...!|....u...|
|00002000| 29 2a 82 ca 04 c1 1a 8a | c3 c4 c5 0e 06 21 c7 51 |)*......|.....!.Q|
|00002010| c8 c9 23 29 89 1e 5c 6e | 85 59 04 c9 1e 0b 8a 0e |..#)..\n|.Y......|
|00002020| 5c 6e 62 88 cc 79 88 60 | 53 29 16 5c 6e 5c 6e cc |\nb..y.`|S).\n\n.|
|00002030| 56 83 2d 04 5c 6e cc 56 | 83 4d 04 c3 0e 0d 0e 5c |V.-.\n.V|.M.....\|
|00002040| 6e c9 23 16 0b 5c 6e 53 | 89 12 82 18 04 5c 6e 53 |n.#..\nS|.....\nS|
|00002050| 89 12 cc 57 83 45 04 ce | 0e 0d c8 c9 23 16 0b 5c |...W.E..|....#..\|
|00002060| 6e 54 89 12 82 31 04 c3 | 0e 0d 0e 5c 6e c9 23 88 |nT...1..|...\n.#.|
|00002070| cf d0 21 83 56 04 c1 75 | 88 0e 0b 29 29 88 29 d9 |..!.V..u|...)).).|
|00002080| 1a 8a c3 c4 c5 0e 06 21 | c7 51 c8 c9 23 29 89 1e |.......!|.Q..#)..|
|00002090| 5c 6e 85 c9 04 c9 1e 0b | 8a 0e 5c 6e 62 88 cc 79 |\n......|..\nb..y|
|000020a0| 88 60 53 29 16 5c 6e 5c | 6e cc 56 83 9d 04 5c 6e |.`S).\n\|n.V...\n|
|000020b0| cc 56 83 bd 04 c3 0e 0d | 0e 5c 6e c9 23 16 0b 5c |.V......|.\n.#..\|
|000020c0| 6e 53 89 12 82 88 04 5c | 6e 53 89 12 cc 57 83 b5 |nS.....\|nS...W..|
|000020d0| 04 ce 0e 0d c8 c9 23 16 | 0b 5c 6e 54 89 12 82 a1 |......#.|.\nT....|
|000020e0| 04 c3 0e 0d 0e 5c 6e c9 | 23 88 cf d0 21 83 c6 04 |.....\n.|#...!...|
|000020f0| c1 75 88 0e 0b 29 2a 88 | 60 1e 1a db c1 21 84 de |.u...)*.|`....!..|
|00002100| 04 c3 c4 c5 0e 06 21 c7 | 51 21 88 cc 79 88 0e 1a |......!.|Q!..y...|
|00002110| 60 53 7b 2a dc 0e 18 0e | 1d 5c 22 41 1e 1e 1e 1f |`S{*....|.\"A....|
|00002120| e0 0e 1f 21 83 fc 04 e1 | 16 1f 0e 1e 84 11 05 e2 |...!....|........|
|00002130| 0e 23 21 16 1e 0e 18 0e | 1e 42 0e 1d 42 16 1d e4 |.#!.....|.B..B...|
|00002140| 0e 1e 0e 1f 5c 22 2e 06 | 87 22 20 5b 6d 61 69 6c |....\"..|." [mail|
|00002150| 2d 68 69 73 74 2d 6b 65 | 65 70 2d 68 69 73 74 6f |-hist-ke|ep-histo|
|00002160| 72 79 20 31 20 63 6f 75 | 6e 74 20 72 65 2d 73 65 |ry 1 cou|nt re-se|
|00002170| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5e 22 |arch-for|ward "^"|
|00002180| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 6d 61 | regexp-|quote ma|
|00002190| 69 6c 2d 68 65 61 64 65 | 72 2d 73 65 70 61 72 61 |il-heade|r-separa|
|000021a0| 74 6f 72 20 22 24 22 20 | 6e 69 6c 20 74 20 62 6f |tor "$" |nil t bo|
|000021b0| 75 6e 64 61 72 79 20 75 | 6e 73 74 6f 70 70 65 64 |undary u|nstopped|
|000021c0| 20 30 20 6d 61 69 6c 2d | 68 69 73 74 2d 68 65 61 | 0 mail-|hist-hea|
|000021d0| 64 65 72 2d 72 65 67 65 | 78 70 20 72 65 2d 73 65 |der-rege|xp re-se|
|000021e0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 6c 6f |arch-bac|kward lo|
|000021f0| 6f 6b 69 6e 67 2d 61 74 | 20 22 5c 5c 73 2d 22 20 |oking-at| "\\s-" |
|00002200| 62 6f 64 79 2d 73 74 61 | 72 74 20 6e 61 6d 65 2d |body-sta|rt name-|
|00002210| 73 74 61 72 74 20 73 65 | 61 72 63 68 2d 66 6f 72 |start se|arch-for|
|00002220| 77 61 72 64 20 22 3a 22 | 20 6e 61 6d 65 2d 65 6e |ward ":"| name-en|
|00002230| 64 20 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |d buffer|-substri|
|00002240| 6e 67 2d 6e 6f 2d 70 72 | 6f 70 65 72 74 69 65 73 |ng-no-pr|operties|
|00002250| 20 63 6f 6e 74 65 6e 74 | 73 20 68 65 61 64 65 72 | content|s header|
|00002260| 20 2d 31 20 73 74 61 72 | 74 20 6d 61 69 6c 2d 68 | -1 star|t mail-h|
|00002270| 69 73 74 2d 66 6f 72 77 | 61 72 64 2d 68 65 61 64 |ist-forw|ard-head|
|00002280| 65 72 20 61 73 73 6f 63 | 20 6d 61 69 6c 2d 68 69 |er assoc| mail-hi|
|00002290| 73 74 2d 68 65 61 64 65 | 72 2d 72 69 6e 67 2d 61 |st-heade|r-ring-a|
|000022a0| 6c 69 73 74 20 72 69 6e | 67 20 63 74 6e 74 73 20 |list rin|g ctnts |
|000022b0| 6d 61 69 6c 2d 68 69 73 | 74 2d 74 65 78 74 2d 74 |mail-his|t-text-t|
|000022c0| 6f 6f 2d 6c 6f 6e 67 2d | 70 20 22 22 20 6d 61 6b |oo-long-|p "" mak|
|000022d0| 65 2d 72 69 6e 67 20 6d | 61 69 6c 2d 68 69 73 74 |e-ring m|ail-hist|
|000022e0| 2d 68 69 73 74 6f 72 79 | 2d 73 69 7a 65 20 72 69 |-history|-size ri|
|000022f0| 6e 67 2d 69 6e 73 65 72 | 74 20 62 6f 64 79 2d 63 |ng-inser|t body-c|
|00002300| 6f 6e 74 65 6e 74 73 20 | 22 62 6f 64 79 22 5d 20 |ontents |"body"] |
|00002310| 36 20 28 23 24 20 2e 20 | 36 38 35 33 29 5d 29 0a |6 (#$ . |6853)]).|
|00002320| 23 40 32 38 31 20 49 6e | 73 65 72 74 20 74 68 65 |#@281 In|sert the|
|00002330| 20 70 72 65 76 69 6f 75 | 73 20 63 6f 6e 74 65 6e | previou|s conten|
|00002340| 74 73 20 6f 66 20 74 68 | 69 73 20 6d 61 69 6c 20 |ts of th|is mail |
|00002350| 68 65 61 64 65 72 20 6f | 72 20 6d 65 73 73 61 67 |header o|r messag|
|00002360| 65 20 62 6f 64 79 2e 0a | 4d 6f 76 65 73 20 62 61 |e body..|Moves ba|
|00002370| 63 6b 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 68 |ck throu|gh the h|
|00002380| 69 73 74 6f 72 79 20 6f | 66 20 73 65 6e 74 20 6d |istory o|f sent m|
|00002390| 61 69 6c 20 6d 65 73 73 | 61 67 65 73 2e 20 20 45 |ail mess|ages.  E|
|000023a0| 61 63 68 20 68 65 61 64 | 65 72 20 68 61 73 0a 69 |ach head|er has.i|
|000023b0| 74 73 20 6f 77 6e 20 69 | 6e 64 65 70 65 6e 64 65 |ts own i|ndepende|
|000023c0| 6e 74 20 68 69 73 74 6f | 72 79 2c 20 61 73 20 64 |nt histo|ry, as d|
|000023d0| 6f 65 73 20 74 68 65 20 | 62 6f 64 79 20 6f 66 20 |oes the |body of |
|000023e0| 74 68 65 20 6d 65 73 73 | 61 67 65 2e 0a 0a 54 68 |the mess|age...Th|
|000023f0| 65 20 68 69 73 74 6f 72 | 79 20 6f 6e 6c 79 20 63 |e histor|y only c|
|00002400| 6f 6e 74 61 69 6e 73 20 | 74 68 65 20 63 6f 6e 74 |ontains |the cont|
|00002410| 65 6e 74 73 20 6f 66 20 | 6f 75 74 67 6f 69 6e 67 |ents of |outgoing|
|00002420| 20 6d 65 73 73 61 67 65 | 73 2c 20 6e 6f 74 0a 72 | message|s, not.r|
|00002430| 65 63 65 69 76 65 64 20 | 6d 61 69 6c 2e 1f 0a 28 |eceived |mail...(|
|00002440| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 69 6c 2d 68 |defalias| 'mail-h|
|00002450| 69 73 74 2d 70 72 65 76 | 69 6f 75 73 2d 69 6e 70 |ist-prev|ious-inp|
|00002460| 75 74 20 23 5b 28 68 65 | 61 64 65 72 29 20 22 08 |ut #[(he|ader) ".|
|00002470| 97 10 c1 08 5c 6e 5c 22 | 41 1b c4 0b 21 1d 0e 06 |....\n\"|A...!...|
|00002480| c7 3d 89 1e 08 83 21 00 | c9 0e 5c 6e 0d 5c 22 16 |.=....!.|..\n.\".|
|00002490| 5c 6e 82 24 00 cb 16 5c | 6e 0b 84 32 00 cc 20 88 |\n.$...\|n..2.. .|
|000024a0| cd ce 08 5c 22 82 61 00 | cf 0b 21 83 3f 00 d0 d1 |...\".a.|..!.?...|
|000024b0| 08 5c 22 82 61 00 0e 08 | 83 4c 00 0e 12 40 0e 12 |.\".a...|.L...@..|
|000024c0| 41 7c 88 60 1e 13 d4 0b | 0e 5c 6e 5c 22 63 88 0e |A|.`....|.\n\"c..|
|000024d0| 13 60 42 16 12 c7 89 16 | 15 29 2b 87 22 20 5b 68 |.`B.....|.)+." [h|
|000024e0| 65 61 64 65 72 20 61 73 | 73 6f 63 20 6d 61 69 6c |eader as|soc mail|
|000024f0| 2d 68 69 73 74 2d 68 65 | 61 64 65 72 2d 72 69 6e |-hist-he|ader-rin|
|00002500| 67 2d 61 6c 69 73 74 20 | 72 69 6e 67 20 72 69 6e |g-alist |ring rin|
|00002510| 67 2d 6c 65 6e 67 74 68 | 20 6c 65 6e 20 6c 61 73 |g-length| len las|
|00002520| 74 2d 63 6f 6d 6d 61 6e | 64 20 6d 61 69 6c 2d 68 |t-comman|d mail-h|
|00002530| 69 73 74 2d 69 6e 70 75 | 74 2d 61 63 63 65 73 73 |ist-inpu|t-access|
|00002540| 20 72 65 70 65 61 74 20 | 72 69 6e 67 2d 70 6c 75 | repeat |ring-plu|
|00002550| 73 31 20 6d 61 69 6c 2d | 68 69 73 74 2d 61 63 63 |s1 mail-|hist-acc|
|00002560| 65 73 73 2d 63 6f 75 6e | 74 20 30 20 64 69 6e 67 |ess-coun|t 0 ding|
|00002570| 20 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 68 69 73 | message| "No his|
|00002580| 74 6f 72 79 20 66 6f 72 | 20 5c 22 25 73 5c 22 2e |tory for| \"%s\".|
|00002590| 22 20 72 69 6e 67 2d 65 | 6d 70 74 79 2d 70 20 65 |" ring-e|mpty-p e|
|000025a0| 72 72 6f 72 20 22 5c 22 | 25 73 5c 22 20 72 69 6e |rror "\"|%s\" rin|
|000025b0| 67 20 69 73 20 65 6d 70 | 74 79 2e 22 20 6d 61 69 |g is emp|ty." mai|
|000025c0| 6c 2d 68 69 73 74 2d 6c | 61 73 74 2d 62 6f 75 6e |l-hist-l|ast-boun|
|000025d0| 64 73 20 73 74 61 72 74 | 20 72 69 6e 67 2d 72 65 |ds start| ring-re|
|000025e0| 66 20 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 5d 20 |f this-c|ommand] |
|000025f0| 34 20 28 23 24 20 2e 20 | 38 39 39 38 29 20 28 6c |4 (#$ . |8998) (l|
|00002600| 69 73 74 20 28 6f 72 20 | 28 6d 61 69 6c 2d 68 69 |ist (or |(mail-hi|
|00002610| 73 74 2d 63 75 72 72 65 | 6e 74 2d 68 65 61 64 65 |st-curre|nt-heade|
|00002620| 72 2d 6e 61 6d 65 29 20 | 22 62 6f 64 79 22 29 29 |r-name) |"body"))|
|00002630| 5d 29 0a 23 40 34 32 37 | 20 49 6e 73 65 72 74 20 |]).#@427| Insert |
|00002640| 6e 65 78 74 20 63 6f 6e | 74 65 6e 74 73 20 6f 66 |next con|tents of|
|00002650| 20 74 68 69 73 20 6d 61 | 69 6c 20 68 65 61 64 65 | this ma|il heade|
|00002660| 72 20 6f 72 20 6d 65 73 | 73 61 67 65 20 62 6f 64 |r or mes|sage bod|
|00002670| 79 2e 0a 4d 6f 76 65 73 | 20 62 61 63 6b 20 74 68 |y..Moves| back th|
|00002680| 72 6f 75 67 68 20 74 68 | 65 20 68 69 73 74 6f 72 |rough th|e histor|
|00002690| 79 20 6f 66 20 73 65 6e | 74 20 6d 61 69 6c 20 6d |y of sen|t mail m|
|000026a0| 65 73 73 61 67 65 73 2e | 20 20 45 61 63 68 20 68 |essages.|  Each h|
|000026b0| 65 61 64 65 72 20 68 61 | 73 0a 69 74 73 20 6f 77 |eader ha|s.its ow|
|000026c0| 6e 20 69 6e 64 65 70 65 | 6e 64 65 6e 74 20 68 69 |n indepe|ndent hi|
|000026d0| 73 74 6f 72 79 2c 20 61 | 73 20 64 6f 65 73 20 74 |story, a|s does t|
|000026e0| 68 65 20 62 6f 64 79 20 | 6f 66 20 74 68 65 20 6d |he body |of the m|
|000026f0| 65 73 73 61 67 65 2e 0a | 0a 41 6c 74 68 6f 75 67 |essage..|.Althoug|
|00002700| 68 20 79 6f 75 20 63 61 | 6e 20 64 6f 20 73 6f 2c |h you ca|n do so,|
|00002710| 20 69 74 20 64 6f 65 73 | 20 6e 6f 74 20 6d 61 6b | it does| not mak|
|00002720| 65 20 6d 75 63 68 20 73 | 65 6e 73 65 20 74 6f 20 |e much s|ense to |
|00002730| 63 61 6c 6c 20 74 68 69 | 73 0a 77 69 74 68 6f 75 |call thi|s.withou|
|00002740| 74 20 68 61 76 69 6e 67 | 20 63 61 6c 6c 65 64 20 |t having| called |
|00002750| 60 6d 61 69 6c 2d 68 69 | 73 74 2d 70 72 65 76 69 |`mail-hi|st-previ|
|00002760| 6f 75 73 2d 68 65 61 64 | 65 72 27 20 66 69 72 73 |ous-head|er' firs|
|00002770| 74 0a 28 5c 5b 6d 61 69 | 6c 2d 68 69 73 74 2d 70 |t.(\[mai|l-hist-p|
|00002780| 72 65 76 69 6f 75 73 2d | 68 65 61 64 65 72 5d 29 |revious-|header])|
|00002790| 2e 0a 0a 54 68 65 20 68 | 69 73 74 6f 72 79 20 6f |...The h|istory o|
|000027a0| 6e 6c 79 20 63 6f 6e 74 | 61 69 6e 73 20 74 68 65 |nly cont|ains the|
|000027b0| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 6f 75 74 | content|s of out|
|000027c0| 67 6f 69 6e 67 20 6d 65 | 73 73 61 67 65 73 2c 20 |going me|ssages, |
|000027d0| 6e 6f 74 0a 72 65 63 65 | 69 76 65 64 20 6d 61 69 |not.rece|ived mai|
|000027e0| 6c 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |l...(def|alias 'm|
|000027f0| 61 69 6c 2d 68 69 73 74 | 2d 6e 65 78 74 2d 69 6e |ail-hist|-next-in|
|00002800| 70 75 74 20 23 5b 28 68 | 65 61 64 65 72 29 20 22 |put #[(h|eader) "|
|00002810| 08 97 10 c1 08 5c 6e 5c | 22 41 1b c4 0b 21 1d 0e |.....\n\|"A...!..|
|00002820| 06 c7 3d 89 1e 08 83 21 | 00 c9 0e 5c 6e 0d 5c 22 |..=....!|...\n.\"|
|00002830| 16 5c 6e 82 24 00 cb 16 | 5c 6e 0b 84 32 00 cc 20 |.\n.$...|\n..2.. |
|00002840| 88 cd ce 08 5c 22 82 61 | 00 cf 0b 21 83 3f 00 d0 |....\".a|...!.?..|
|00002850| d1 08 5c 22 82 61 00 0e | 08 83 4c 00 0e 12 40 0e |..\".a..|..L...@.|
|00002860| 12 41 7c 88 60 1e 13 d4 | 0b 0e 5c 6e 5c 22 63 88 |.A|.`...|..\n\"c.|
|00002870| 0e 13 60 42 16 12 c7 89 | 16 15 29 2b 87 22 20 5b |..`B....|..)+." [|
|00002880| 68 65 61 64 65 72 20 61 | 73 73 6f 63 20 6d 61 69 |header a|ssoc mai|
|00002890| 6c 2d 68 69 73 74 2d 68 | 65 61 64 65 72 2d 72 69 |l-hist-h|eader-ri|
|000028a0| 6e 67 2d 61 6c 69 73 74 | 20 72 69 6e 67 20 72 69 |ng-alist| ring ri|
|000028b0| 6e 67 2d 6c 65 6e 67 74 | 68 20 6c 65 6e 20 6c 61 |ng-lengt|h len la|
|000028c0| 73 74 2d 63 6f 6d 6d 61 | 6e 64 20 6d 61 69 6c 2d |st-comma|nd mail-|
|000028d0| 68 69 73 74 2d 69 6e 70 | 75 74 2d 61 63 63 65 73 |hist-inp|ut-acces|
|000028e0| 73 20 72 65 70 65 61 74 | 20 72 69 6e 67 2d 6d 69 |s repeat| ring-mi|
|000028f0| 6e 75 73 31 20 6d 61 69 | 6c 2d 68 69 73 74 2d 61 |nus1 mai|l-hist-a|
|00002900| 63 63 65 73 73 2d 63 6f | 75 6e 74 20 30 20 64 69 |ccess-co|unt 0 di|
|00002910| 6e 67 20 6d 65 73 73 61 | 67 65 20 22 4e 6f 20 68 |ng messa|ge "No h|
|00002920| 69 73 74 6f 72 79 20 66 | 6f 72 20 5c 22 25 73 5c |istory f|or \"%s\|
|00002930| 22 2e 22 20 72 69 6e 67 | 2d 65 6d 70 74 79 2d 70 |"." ring|-empty-p|
|00002940| 20 65 72 72 6f 72 20 22 | 5c 22 25 73 5c 22 20 72 | error "|\"%s\" r|
|00002950| 69 6e 67 20 69 73 20 65 | 6d 70 74 79 2e 22 20 6d |ing is e|mpty." m|
|00002960| 61 69 6c 2d 68 69 73 74 | 2d 6c 61 73 74 2d 62 6f |ail-hist|-last-bo|
|00002970| 75 6e 64 73 20 73 74 61 | 72 74 20 72 69 6e 67 2d |unds sta|rt ring-|
|00002980| 72 65 66 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |ref this|-command|
|00002990| 5d 20 34 20 28 23 24 20 | 2e 20 39 37 38 35 29 20 |] 4 (#$ |. 9785) |
|000029a0| 28 6c 69 73 74 20 28 6f | 72 20 28 6d 61 69 6c 2d |(list (o|r (mail-|
|000029b0| 68 69 73 74 2d 63 75 72 | 72 65 6e 74 2d 68 65 61 |hist-cur|rent-hea|
|000029c0| 64 65 72 2d 6e 61 6d 65 | 29 20 22 62 6f 64 79 22 |der-name|) "body"|
|000029d0| 29 29 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 28 71 |))]).(pr|ovide (q|
|000029e0| 75 6f 74 65 20 6d 61 69 | 6c 2d 68 69 73 74 29 29 |uote mai|l-hist))|
|000029f0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+